* lisp/net/tramp-compat.el (tramp-compat-funcall): Don't use `subrp'.

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 1c0b8d20fda239c8c3c17acbf1f17c046c071bf3..0d804fc0a48077a75a0d5265ce2dbfcab0df835c 100644 (file)
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -55,7 +55,7 @@
 ;; avoid them in cases we know what we do.
 (defmacro tramp-compat-funcall (function &rest arguments)
   "Call FUNCTION if it exists.  Do not raise compiler warnings."
-  `(when (or (subrp ,function) (functionp ,function))
+  `(when (functionp ,function)
      (with-no-warnings (funcall ,function ,@arguments))))
 
 ;; We currently use "[" and "]" in the filename format for IPv6 hosts